
Edit.New
 cl=clock(2):clock(2)=0
 Edit(0)

Editor
 If ae goto Ae.Editor
 If Info(0)=0 goto Ae.Editor
 setint(chr$(29)):print chr$(5);chr$(1,info(2)*15);:If key(3)=29 Setint(""):goto Ae.Editor
 SetInt (""):Copy "B:Edit":If Edit(2) Then Print:Copy #8,#3
 Edit(1):clock(2)=cl:Return

Ae.Editor
 If Info(0) SetInt(1):copy "B:Edit.Pt":SetInt(""):If Key(1)=0 Gosub GetKey
 If Edit(2)=0 Goto Ae.New
 Kill "H:Msg":Create "H:Msg":Open #1,"H:Msg":Copy #8,#1:Close #1
 Text:Use "B:BlackSpring","H:Msg",1:If Peek(10)=1 goto Ae.Abort
 Goto Ae.Ok

Ae.New
 Text:Use "B:BlackSpring","H:Msg",0:If Peek(10)=1 goto Ae.Abort

Ae.Ok
; Text:If Info(0) Print ^
 Print Chr$(12);:Edit(0):Copy "H:Msg",#8:Kill "H:Msg":Clock(2)=Cl:Return

Ae.Abort
; Text
 Print Chr$(12);:Edit(0):Kill "H:Msg":Clock(2)=Cl:Return
